home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / extras / programm / gemfsc20 / gemfsc20.lzh / GEMFBIND / AESGRAF5.S < prev    next >
Text File  |  1993-03-26  |  1KB  |  47 lines
  1.  
  2. ;*========================================================================
  3. ;*
  4. ;* AESFAST Public Domain GEM bindings.
  5. ;*
  6. ;*========================================================================
  7.  
  8.  
  9. ;*************************************************************************
  10. ;*
  11. ;* Graphics Library routines 5 of 5.
  12. ;*
  13. ;*************************************************************************
  14.  
  15. ;-------------------------------------------------------------------------
  16. ; graf_watchbox
  17. ;-------------------------------------------------------------------------
  18.  
  19.           globl     _graf_watchbox
  20. _graf_watchbox:
  21. ;          .cargs    #8,ptree.l,obj,instate,outstate
  22.  
  23. ptree            =    8
  24. obj             =    12
  25. instate         =    14
  26. outstate        =    16
  27.  
  28.           link        a6,#-2
  29.  
  30.           move.w    outstate(a6),-(sp) ; D*mn AES defines a reserved parm
  31.           move.w    instate(a6),-(sp)  ; for this call, as intin[0], so we
  32.           move.w    obj(a6),-(sp)       ; have to build a new intin instead
  33.           clr.w     -(sp)                ; of pointing to parms on entry.
  34.  
  35.           move.l    #$4B040101,d0       ; AControl  75,4,1,1
  36.           moveq.l    #-2,d1                ;  = intout
  37.           move.l    sp,a1                ; -> intin (we just built it)
  38.           lea        ptree(a6),a0       ; -> addrin
  39.           jsr        aes_call
  40.  
  41.           move.w    -2(a6),d0
  42.           unlk        a6
  43.           rts
  44.  
  45. ;          end of code
  46.  
  47.